সমাবেশ ভাষা ম্যাক্রো সিস্টেম - MSYSTEM.MAC

msystem.zip 411KB।

ম্যাক্রো সিস্টেম

আর্কাইভের প্রধান ফাইলগুলির সংক্ষিপ্ত বিবরণ।

ম্যাক্রো সিস্টেম নিজেই:

MSYSTEM.MAC এই ফাইলটিতে প্রকৃত ম্যাক্রো সিস্টেম রয়েছে।

MMACROS.MAC এই ফাইলটিতে অতিরিক্ত দরকারী ম্যাক্রো সংজ্ঞা রয়েছে।

MBIOS.MAC এই ফাইলটিতে IBM-PC BIOS-এর জন্য ম্যাক্রো সংজ্ঞা রয়েছে।

MDOS.MAC এই ফাইলটিতে IBM-PC DOS-এর জন্য ম্যাক্রো সংজ্ঞা রয়েছে।

CONIO.MAC

DIR.MAC

ERROR.MAC

FLOAT.MAC

IO.MAC

KBD.MAC

MATH.MAC

MBIOS.MAC

MEM.MAC

MOUSE.MAC

STOV.MAC

STRING.MAC

SYS.MAC

ম্যাক্রো সিস্টেম নিজেই:

CHOISE.M

CLOCK.M

কোডার.এম

রঙ.এম

কার্সার.এম

DBEDIT.M

INIT.M

KEY.M

MENU.M

MKEYS.M

READ.M

REC.M

বলুন

স্ক্রোল.এম

SORT.M

সাউন্ড এম

WINDOW.M

ডকুমেন্টেশন:

MSYSTEM.DOC এটি ম্যাক্রো সিস্টেমের জন্য একটি ডকুমেন্টেশন ফাইল।

EXTA.DOC

MMACROS.DOC

MMEM.DOC

OGLAV.DOC

READ.DOC

TITLE.DOC

*.ASM ফাইল এই ফাইল ধারণ করে

সিস্টেমে ইনস্টলেশনের জন্য
যে অ্যাসেম্বলার ত্রুটি মনে রাখবেন
আপনার পদ্ধতি যাই হোক না কেন -
অ্যাসেম্বলার নিজেই এখানে ডাউনলোড করা যেতে পারে tasm25.zip - 175 কেবি।

উদাহরণস্বরূপ, এখানে একটি সহজ কোড

;
;

.মডেল ছোট

msystem.mac অন্তর্ভুক্ত
sys.mac অন্তর্ভুক্ত
conio.mac অন্তর্ভুক্ত
mouse.mac অন্তর্ভুক্ত
mem.mac অন্তর্ভুক্ত
kbd.mac অন্তর্ভুক্ত
math.mac অন্তর্ভুক্ত
cursor.m অন্তর্ভুক্ত
window.m অন্তর্ভুক্ত
color.m অন্তর্ভুক্ত
rec.m অন্তর্ভুক্ত
dbedit.m অন্তর্ভুক্ত
say.m অন্তর্ভুক্ত
read.m অন্তর্ভুক্ত
key.m অন্তর্ভুক্ত
mkeys.m অন্তর্ভুক্ত

mb.m অন্তর্ভুক্ত

size_com = 20000+256
len_stack = 20000
len_vars = 20000

.CODE
শুরু করুন START,100 ঘন্টা,_প্রধান,{

func mb_empty,,
mov SI, buf_A
মেমফিল <32,@ DEBET_NAME,LEN_NAME>
মেমফিল < 0,@ DEBET_QUAN,LEN_QUAN>
মেমফিল <32,@ KREDIT_NAME,LEN_NAME>
মেমফিল < 0,@ KREDIT_QUAN,LEN_QUAN>
endf

func _pic,<বাইট এক্স,বাইট Y>,,1,পাবলিক
old_color EQU [BP] -1
getcolor ,
mov SI, buf_A
setcolor
sayxy
setcolor
<@DEBET_NAME,@f_name> বলুন
setcolor
বলুন <@ স্থান, @ f_s>
setcolor
বলুন <@ DEBET_QUAN,@ f_quan>
setcolor
বলুন <@ স্থান, @ f_s>
setcolor
বলুন <@ স্থান, @ f_s>
setcolor
<@ KREDIT_NAME,@ f_name> বলুন
setcolor
বলুন <@ স্থান, @ f_s>
setcolor
বলুন <@ KREDIT_QUAN,@ f_quan>
setcolor
বলুন <@ স্থান, @ f_s>
setcolor
endf

func _fuser,<বাইট মোড,ওয়ার্ড RecCur>,,1,পাবলিক
old_color EQU [BP] -1
mov DI, 1
mov AL, cs:mode
AL,<0,1> পরিবর্তন করুন
মামলা 1 { ;
getcolor ,
setcolor
reccount <@ rec_A>,
sayxy <35, 2,@ ii,@ f_w4>
recrecno <@ rec_A>,
sayxy <41, 2,@ ii,@ f_w4>
setcolor
কেস 2 {
mov retr_cho, সত্য
যখন {
mov retr_cho, মিথ্যা
mkeys_to
mov AL, cs:key_AL
AL, { পাল্টান
মামলা 1 {
mov AH, cs:key_AH
AH, পাল্টান
মামলা 1 ;
সন্নিবেশ করা হচ্ছে ,
কেস 2;
মুছে ফেলা হচ্ছে ,
কেস 3;
বাছাই করা হচ্ছে,
কেস 4;
কেস 5;
ডেটিং,
কেস 6;
মেনুপুল
mov DI, 3
এন্ডকেস
কেস 2 { ;
কেস 3;
ইনপুট করা হচ্ছে ,
কেস 4;
সরানো হয়েছে, মিথ্যা
movDI,0
এন্ডকেস
endwh}
এন্ডকেস
endf

লেবেল1 db 'আসছে',0
লেবেল2 ডিবি 'ব্যবহার',0
title1 db ' নামের পরিমাণ

ukeys1 db 1Eh,0
ukeys2 db 1Fh,0
skys1 db 'ENTER',0
nkeys1 db 'ENTER',0
skys2 db 'INS',0
nkeys2 db 'নতুন',0
skys3 db 'DEL',0
nkeys3 db 'DELETE',0
skys4 db 'F5',0
nkeys4 db 'প্রিন্ট',0
skys5 db 'F6',0
nkeys5 db 'ORDER',0
skys6 db 'F7',0
nkeys6 db 'সার্চ',0
skys7 db 'F8',0
nkeys7 db 'SUM',0
skys8 db 'F10',0
nkeys8 db 'মেনু',0
skeys9 db 'ESC',0
nkeys9 db 'ছাড়ুন',0৷

;--- প্রধান পদ্ধতি
ফাংশন প্রধান
;
cli
mov SP, size_com+len_stack
sti
;
farrelease <*CS 00.00 size_com+len_stack+len_vars>
initcon
প্রকাশ করুন <* size_com+len_stack,0>
initsys
initmouse
cursor_off
;
setcolor <<>>
ড্রবক্স ড্রবক্স < 0, 2.79, 2, @ বক্স_মেইন>
মাউস_অন
setcolor
sayxy <16, 0,@ label1,@ f_s>
sayxy <56, 0,@ label2,@ f_s>
setcolor
sayxy <0, 1,@ title1,@ f_s>
setcolor
<@ title1,@ f_s> বলুন
setcolor <<>>
;
রঙ
mkeys_on
mkeys_fr <79, 0,PGUPKEY*100h,@ukeys1,@snull>
mkeys_fr <79,24,PGDNKEY*100h,@ ukeys2,@ snull>
mkeys_fr <4,24,CRKEY,@skeys1,@nkeys1>
mkeys_fr <14,24,INSKEY*100h,@skeys2,@nkeys2>
mkeys_fr <22,24,DELRKEY*100h,@skeys3,@nkeys3>
mkeys_fr <30,24,F5KEY*100h,@skeys4,@nkeys4>
mkeys_fr <37,24,F6KEY*100h,@skeys5,@nkeys5>
mkeys_fr <44,24,F7KEY*100h,@skeys6,@nkeys6>
mkeys_fr <51,24,F8KEY*100h,@skeys7,@nkeys7>
mkeys_fr <58,24,F10KEY*100h,@skeys8,@nkeys8>
mkeys_fr <65,24,ESCKEY,@skeys9,@nkeys9>
mkeys_on
;
রিকোপেন <@ rec_A,@ file_A,len_A>
getmem , ;recbuffer
recempty <@ rec_A,@ _mb_empty>
;
রঙ
সরানো হয়েছে, সত্য
যখন <সম্পন্ন এবং সত্য>
dbedit <@ rec_A, 0, 3,79,23,@ cs:__pic,@ cs:__fuser>
endwh
;
freemem<*buf_A>
recclose <@ rec_A>
;
mkeys_of
;
মাউস_অফ
cursor_on
;
clrscr
থামান <0>
endf
শেষ শুরু